﻿Partial Public Class Lst_Pruebas
    Inherits System.Web.UI.Page

    Public masterpage As Reporte

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Instancia de la clase masterpage ReporteBase
        masterpage = CType(Page.Master, Reporte)
        'Asigna los atributos a la clase base
        masterpage.lblTitulo = "Informe de Pruebas Realizadas"

        'Instancia del objeto de reglas del negocio
        Dim obr As New BR.Web.Utilitarios.Abms.Pruebas
        'Inicialización de la página ReporteBase enlazada al objeto de negocios
        MasterPage.InicializarPagina(obr)
    End Sub

    Protected Overloads Sub OnPreInit() Handles Me.PreInit
        'Aplicacion de Tema
        If Not Session("Tema") Is Nothing Then
            Page.Theme = Session("Tema").ToString
        End If
    End Sub

End Class